home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol153 / lablmakr.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-16  |  1.8 KB  |  54 lines
  1. 1  '*****THIS PROGRAM WAS WRITTEN BY TERRY RAY 2-29-83 ******'
  2. 90  KEY OFF
  3. 100  CLS
  4. 110  W=1
  5. 120  Q=1
  6. 200  PRINT " THIS PROGRAM WILL PRINT GUM LABELS 1.5 INCHES HIGH AND 4 INCHES WIDE."
  7. 210  PRINT"YOU WILL BE GIVEN THE OPTION TO SEQUENTILY NUMBER YOUR LABELS BY CHOOSING THE   LINE TO PRINT THE NUMBER ON OR TO PRINT SINGLE LABELS."
  8. 230  PRINT"THE LABEL WILL HOLD FOUR LINES WITH 20 CHARACTERS ON EACH LINE."
  9. 240  PRINT "BE SURE AND LEAVE ROOM FOR THE LABEL # TO PRINT ON THE LINE YOU SELECT. THE     FORMAT THAT PRINTS FOR LABEL #'S IS < # XXX>. WHERE XXX IS THE LAST NUMBER YOU  WISH TO PRINT. IN THE ABOVE EXAMPLE < # XXX> 6 SPACES MUST BE ALLOWED."
  10. 300  LOCATE 10,20:COLOR 0,7:PRINT " "SPC(20):COLOR 7,0
  11. 400  COLOR 0,7:LOCATE 10,18:INPUT "1 ",A$:COLOR 7,0
  12. 500  LOCATE 12,20:COLOR 0,7:PRINT " "SPC(20):COLOR 7,0
  13. 600  COLOR 0,7:LOCATE 12,18:INPUT "2 ",B$:COLOR 7,0
  14. 700  LOCATE 14,20:COLOR 0,7:PRINT " "SPC(20):COLOR 7,0
  15. 800  COLOR 0,7:LOCATE 14,18:INPUT "3 ",C$:COLOR 7,0
  16. 900  LOCATE 16,20:COLOR 0,7:PRINT " "SPC(20):COLOR 7,0
  17. 1000  COLOR 0,7:LOCATE 16,18:INPUT "4 ",D$:COLOR 7,0
  18. 1010  INPUT"ENTER A 1 2 3 4 TO SELECT LABEL # LINE OR RETURN FOR NO LABEL #'S =>",X:
  19. 1020  FOR Z=Q TO W
  20. 1100  LPRINT CHR$(27);"E"
  21. 1210  IF X=1 THEN 1230
  22. 1220  LPRINT CHR$(14);A$:GOTO 1300
  23. 1230  LPRINT CHR$(14);A$" #"Z
  24. 1300  LPRINT CHR$(14)" "
  25. 1310  IF X=2 THEN 1330
  26. 1320  LPRINT CHR$(14);B$:GOTO 1400
  27. 1330  LPRINT CHR$(14);B$" #"Z
  28. 1400  LPRINT CHR$(14)" "
  29. 1410  IF X=3 THEN 1430
  30. 1420  LPRINT CHR$(14);C$:GOTO 1500
  31. 1430  LPRINT CHR$(14);C$" #"Z
  32. 1500  LPRINT CHR$(14)" "
  33. 1510  IF X=4 THEN 1530
  34. 1520  LPRINT CHR$(14);D$:GOTO 1600
  35. 1530  LPRINT CHR$(14);D$" #";Z
  36. 1600  LPRINT CHR$(14)" "
  37. 1620  NEXT Z
  38. 1700  CLS
  39. 1710  LINE INPUT"IS THE LABEL CORRECT? Y/N =>",L$
  40. 1720  IF L$="Y" THEN 1800
  41. 1725  IF L$="y" THEN 1800
  42. 1730  IF L$="N" THEN 100
  43. 1735  IF L$="n" THEN 100
  44. 1800  LINE INPUT "WOULD YOU LIKE TO PRINT MORE OF THE SAME LABEL? Y=MORE N=NEW LABEL =>",P$
  45. 1810  IF P$="Y" THEN 1900
  46. 1815  IF P$="y" THEN 1900
  47. 1820  IF P$="N" THEN 100
  48. 1825  IF P$="n" THEN 100
  49. 1830  GOTO 1020
  50. 1900  INPUT "HOW MANY LABELS WOULD YOU LIKE TO PRINT? =>",R
  51. 1910  W=R
  52. 1920  Q=2
  53. 1930  GOTO 1020
  54.